[ALed], Freeware with source.

Replaces:  TAutoLed V2.01 by Chang Ting SU (ctsu@ms12.hinet.net)
Author:    Howard Harvey
Date:      24/JUNE/1997
Version:   1.01

This component can show 6 different styles of LED:
  Round Large (the original in TAutoLed)
  Round Small
  Square Large
  Square Small
  Rectangular Horizontal
  Rectangular Vertical

Dynamic resizing is possible, but the 6 predefined versions are best.
Resizing upwards is acceptable, but resizing downwards results in loss of clarity.
Resizing requires a definition of the form 
  ALED1.width := NewWidth ;
  ALED1.height := NewHeight ;
to be executed when the form is first drawn or after each change in the style
or colours.

Dynamic selection of the LED style is also possible (try doing that in hardware!)

Any defined system colour can be independently defined for the ON and OFF states.
Blinking (when ON state selected) is provided, with user selectable blink rate.

[Event]
   OnClick,
   *OnMouseEnter,
   *OnMouseLeave,
   *OnTimer(When Blink is true)
[Properties]
   Blink(True or False),
   FalseColor(Value is false)(You can select any color),
   Interval(Blink Interval),
   LedSize(LEDSmall,LEDLarge,LEDSqSmall,LEDSqLarge,LEDVertical,LEDHorizontal),
   TrueColor(Value is true)(You can select any color),
   Value(True or False);

This component has been successfully tested on Delphi2 and Delphi3.
Test code is not included.  The component is simple and registers
as ALed in the Extras component panel.
Howard Harvey
(hharvey@dove.net.au)
(http://dove.net.au/~hharvey)